1000 REM **** M O D U L   F U E R *****
1020 REM **** H I L S P R O G R A M M E
1040 :
1060 REM*******************************
1080 POKE50257,20:REM NICHT SICHERN
1100 REM*******************************
1120 :
1140 REM*******************************
1160 A$(1)="[196][193][212][193] - [199]ENERATOR"
1180 A$(2)="[210][197] - [206][197][215] - [210]OUTINE"
1200 A$(3)="[194][193][211][201][195] 2 MAL IM [210][193][205]"
1220 A$(4)="[204][201][211][212] IM [208]ROGRAMM"
1260 REM*******************************
1280 :
1300 PRINTCHR$(14);CHR$(8);"[147][144]";:POKE53280,5 :POKE53281,5:SI=54272
1320 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1340 PRINT"[221]                                      [146][221]";
1360 PRINT"[221]    W I R   S T E L L E N   V O R :   [146][221]";
1380 PRINT"[221]                                      [146][221]";
1400 PRINT"[221]    [200] I L F S P R O G R A M M E       [146][221]";
1420 PRINT"[221]                                      [146][221]";
1440 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" :PRINT
1460 PRINT"[193]UF DEN FOLGENDEN [211]EITEN STELLEN WIR"
1480 PRINT"[201]HNEN MEHRERE [200]ILFSPROGRAMME VOR.":PRINT
1500 PRINT"[211]IE WERDEN DIE [193]NWENDUNG DIESER"
1520 PRINT"[200]ILFSPROGRAMME KENNENLERNEN.":PRINT
1530 PRINT"[205]IT [195][212][210][204][146] [211][146] SICHERN [211]IE IN DIESEM [198]ALL"
1535 PRINT"NUR DAS ANGEWAEHLTE [200]ILFSPROGRAMM!":PRINT
1540 PRINT"[196]ARUEBERHINAUS STEHEN [201]HNEN DIE"
1560 PRINT"BEKANNTEN [198]UNKTIONEN VON  [201][206][208][213][212] 64  [146]"
1580 PRINT"ZUR [214]ERFUEGUNG."
1640 GOSUB5800
1650 :
1660 POKE53280,0:POKE53281,0:PRINT"[147]";
1670 POKE50257,20:REM NICHT SICHERN
1680 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1700 PRINT"[221]                                      [146][221]";
1720 PRINT"[221]      [193] U S W A H L T A F E L         [146][221]";
1740 PRINT"[221]                                      [146][221]";
1760 PRINT"[221]    [200] I L F S P R O G R A M M E       [146][221]";
1780 PRINT"[221]                                      [146][221]";
1800 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" :PRINT:PRINT:PRINT
1820 FORI=1TO4:PRINT"    "I"[157] [146]  = "A$(I):PRINT:NEXTI
1840 Z=24:S=0:GOSUB5960:PRINT"[194]ITTE WAEHLEN [211]IE (1-4) !";:FORT=0TO200:NEXTT
1860 GETG$:IFG$=""THEN1880
1870 IFG$>"0"ANDG$<"5"THENGOSUB6000:GOTO1900
1875 GOSUB6100
1880 GOSUB5960:PRINT"[194]ITTE WAEHLEN [211]IE (1-4[146])"; :FORT=0TO200:NEXTT:GOTO1840
1900 A=VAL(G$):PRINT"[147]";:F=8:GOSUB5360:Z=5:S=0:GOSUB5960
1920 ON A GOSUB 2000,3240,3680,4120
1940 GOTO1660
1960 :
1980 REM 1. HILFSPROGRAMM
2000 POKE50259,025:POKE50260,051:POKE50261,211:POKE50262,052:REM UEBERGABE
2010 POKE50257,24:REM TEILWEISE SICHERN
2020 PRINT"[196]IESES [200]ILFSPROGRAMM LIEST DIE [215]ERTE"
2040 PRINT"EINES FREI BESTIMMBAREN [211]PEICHERBEREICHS";
2060 PRINT"AUS UND LEGT DIESE IN [196][193][212][193]-[218]EILEN AB.":PRINT
2080 PRINT"[158][197]INIGE [193]NWENDUNGSBEISPIELE WAEREN Z.[194].:":PRINT
2100 PRINT"[211]IE WOLLEN IN EIN [194][193][211][201][195]-[208]ROGRAMM EINE"
2120 PRINT"[210]OUTINE IN [205]ASCHINENSPRACHE EINBINDEN":PRINT
2140 PRINT"              [158]ODER":PRINT
2160 PRINT"[211]IE WOLLEN [201]HR SELBSTENTWICKELTES"
2180 PRINT"[205]ASCHINENSPRACHE-[208]ROGRAMM IN EINER [198]ORM"
2200 PRINT"WEITERGEBEN, DIE ES ERMOEGLICHT, DAS"
2220 PRINT"[208]ROGRAMM AUCH OHNE [205]ONITOR ZU LADEN."
2240 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
2260 PRINT"[147]";:F=8:GOSUB5360:Z=5:S=0:GOSUB5960
2280 PRINT"[201]N DER VORLIEGENDEN [198]ORM ERWARTET DAS"
2300 PRINT"[208]ROGRAMM ZU [194]EGINN EINIGE [197]INGABEN:":PRINT:PRINT
2320 PRINT"[158]   - ERSTE [218]EILENNUMMER DER [196][193][212][193]-[218]EILEN":PRINT
2340 PRINT"   - [211]CHRITTWEITE DER [218]EILENNUMMERN":PRINT
2360 PRINT"   - [211]TARTADRESSE DES [211]PEICHERBEREICHS":PRINT
2380 PRINT"   - [197]NDADRESSE DES [211]PEICHERBEREICHS":PRINT:PRINT
2400 PRINT"[196]IESE [193]BFRAGE KANN ABER AUCH ENTFALLEN,"
2420 PRINT"WENN DIE [196][193][212][193]-[210]OUTINE ALS [213]NTERPROGRAMM"
2440 PRINT"VERWENDET WIRD UND DIE [214]ARIABLEN VOM"
2460 PRINT"[200]AUPTPROGRAMM MIT [215]ERTEN VERSORGT"
2480 PRINT"WERDEN."
2500 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
2520 PRINT"[147][158]";:F=2:GOSUB5360:
2540 Z=5:S=0:GOSUB5960:PRINT"[158][197][160][201][160][206][160][199][160][193][160][194][160][197][160][215][160][197][160][210][160][212][160][197][160]:":PRINT
2560 PRINT"ERSTE [218]EILENNR. = ":PRINT
2580 PRINT"[211]CHRITTWEITE    = ":PRINT
2600 PRINT"[211]TARTADRESSE    = ":PRINT
2620 PRINT"[197]NDADRESSE      = ":GOSUB5140
2640 T$="[215]IR LEGEN ZUERST DIE ERSTE [218]EILENNUMMER FEST; Z.[194].: 1000   "
2660 GOSUB5280:Z=7:S=20:GOSUB5960:PRINT"<";
2680 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
2700 Z=7:S=20:GOSUB5960:PRINT"1000"
2720 T$="[196]ANACH DEN [218]EILENABSTAND; Z.[194].: 10   "
2740 GOSUB5280:Z=9:S=20:GOSUB5960:PRINT"<";
2760 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
2780 Z=9:S=20:GOSUB5960:PRINT"10"
2800 T$="[193]LS DRITTE [197]INGABE BENOETIGEN WIR DIE [211]TARTADRESSE; Z.[194].: 42562"
2820 GOSUB5280:Z=11:S=20:GOSUB5960:PRINT"<";
2840 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
2860 Z=11:S=20:GOSUB5960:PRINT"42562"
2880 T$="[213]ND ALS LETZTE [197]INGABE DIE [197]NDADRESSE; Z.[194].: 42588"
2900 GOSUB5280:Z=13:S=20:GOSUB5960:PRINT"<";
2920 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
2940 Z=13:S=20:GOSUB5960:PRINT"42588"
2960 T1$="[201]N DIESEM [211]PEICHERBEREICH LIEGT UEBRIGENS DIE [194]ETRIEBSSYSTEMROUTINE"
2980 T2$="[160]FUER DEN [194][193][211][201][195]-[194]EFEHL [160][206][197][215][160][160]"
3000 T$=T1$+T2$:GOSUB5280:FORT=0TO2000:NEXTT
3020 T1$="[206]ACHDEM WIR DIE VIER [215]ERTE DEM [208]ROGRAMM UEBERGEBEN HABEN, WERDEN DIE "
3040 T2$="ENTSPRECHENDEN [196][193][212][193]-[218]EILEN ERZEUGT"
3060 T$=T1$+T2$:GOSUB5280
3080 FORZ=5TO13STEP2:S=0:GOSUB5960:PRINT"                              ":NEXTZ
3100 Z=5:S=0:GOSUB5960:PRINT"[196][160][193][160][212][160][193][160][218][160][197][160][201][160][204][160][197][160][206][160]:":PRINT:PRINT
3120 PRINT"1010 [196][193][212][193] 208,253,169,  0,168,145, 43,200,145, 43,165, 43, 24,";
3140 PRINT"105,  2,133, 45":PRINT
3160 PRINT"1020 [196][193][212][193] 165, 44,105,  0,133, 46, 32,142,166,169":PRINT
3180 GOSUB5640:RETURN
3200 :
3220 REM 2. HILFSPROGRAMM
3240 POKE50259,212:POKE50260,052:POKE50261,188:POKE50262,058:REM UEBERGABE
3250 POKE50257,24:REM TEILWEISE SICHERN
3260 PRINT"[205]IT DIESEM [200]ILFSPROGRAMM KOENNEN [211]IE EIN";
3280 PRINT"[208]ROGRAMM RETTEN, DASS [211]IE VERSEHENTLICH"
3300 PRINT"MIT  [206][197][215]  GELOESCHT HABEN.":PRINT
3340 PRINT"[158][196]IE [210][197]-[206][197][215]-[210]OUTINE MUSS ABER UNMITTELBAR";
3360 PRINT"NACH DEM IRRTUEMLICHEN [206][197][215]-[194]EFEHL ZUM"
3380 PRINT"[197]INSATZ KOMMEN":PRINT
3400 PRINT"[213]NSER [200]ILFSPROGRAMM ENTHAELT IN EINIGEN"
3420 PRINT"[196][193][212][193]-[218]EILEN EIN KURZES [208]ROGRAMM IN"
3440 PRINT"[205]ASCHINENSPRACHE":PRINT
3460 PRINT"[158][197]S MUSS DAHER VOR DER ERSTEN [193]NWENDUNG"
3480 PRINT"EINMAL ALS [205]ASCHINENPROGRAMM  ERZEUGT"
3500 PRINT"UND ABGESPEICHERT WERDEN":PRINT
3582 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
3583 PRINT"[147]";:F=8:GOSUB5360:Z=5:S=0:GOSUB5960
3584 PRINT"[215]ENN DIE [210]OUTINE BENOETIGT WIRD, KANN"
3586 PRINT"SIE EINFACH 'ABSOLUT' MIT ',1' GELADEN"
3588 PRINT"WERDEN UND DANN MIT [211][217][211] [[193][196][210][197][211][211][197]]"
3589 PRINT"AUFGERUFEN WERDEN.":PRINT
3590 PRINT"[158][196]AS [194][193][211][201][195]-[208]ROGRAMM IST DANACH 'GERETTET'";
3592 PRINT"UND KANN NORMAL BENUTZT WERDEN."
3600 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
3601 PRINT"[147][158]";:F=2:GOSUB5360:
3602 Z=5:S=0:GOSUB5960:PRINT"[158][197][160][201][160][206][160][199][160][193][160][194][160][197][160][215][160][197][160][210][160][212][160][197][160]:":PRINT
3604 PRINT"[211]TARTADRESSE           = 53180":PRINT
3606 PRINT"[196]ISKETTE ODER [203]ASSETTE = [196]":GOSUB5120
3608 T1$="[215]IR MUESSEN ZUERST DIE [211]TARTADRESSE FESTLEGEN, AN DER UNSER"
3610 T2$="[160][205]ASCHINEN-[208]ROGRAMM BEGINNEN SOLL."
3611 T$=T1$+T2$:GOSUB 5280:FORT=OTO2000:NEXTT
3612 T1$="[215]IR KOENNEN DIE VORGEGEBENE [193]DRESSE"
3614 T2$="[160]MIT [210][197][212][213][210][206] UEBERNEHMEN, ODER EINE ANDERE GEEIGNETE [193]DRESSE EINGEBEN;"
3615 T3$="[160]Z.[194].: 49152 [194]EGINN DES OBEREN [210][193][205]-[194]EREICHS"
3616 T$=T1$+T2$+T3$:GOSUB 5280:Z=7:S=25:GOSUB5960:PRINT"49152"
3617 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
3620 T1$="[196]ANACH LEGEN WIR FEST, OB WIR DAS [205]ASCHINEN-[208]ROGRAMM AUF [196]ISKETTE"
3622 T2$="[160]ODER AUF [203]ASSETTE ABSPEICHERN WOLLEN. ([194]EI [196]ISKETTE NUR [210][197][212][213][210][206]"
3624 T3$="[160]DRUECKEN). [198]UER [203]ASSETTE GEBEN WIR [203] EIN.   "
3626 T$=T1$+T2$+T3$:GOSUB 5280:Z=9:S=25:GOSUB5960:PRINT"[203]"
3628 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
3630 T1$="[193]UF DEM [194]ILDSCHIRM ERSCHEINEN NUN DIE UEBLICHEN [200]INWEISE, DIE [211]IE VON"
3632 T2$="[160]DER [203]ASSETTEN-[194]EDIENUNG GEWOHNT SIND:[160] [160][160][160][160]"
3634 T$=T1$+T2$:GOSUB 5280
3635 Z=11:S=0:GOSUB5960:PRINT"[208][210][197][211][211] [210][197][195][207][210][196] & [208][204][193][217] [207][206] [212][193][208][197]":PRINT"[207][203]"
3636 PRINT"[211][193][214][201][206][199] [210][197]-[206][197][215] 49152":PRINT"[210][197][193][196][217]":GOSUB5480
3638 T1$="[196]IE [211]TARTADRESSE IST [212]EIL DES [208]ROGRAMM-[206]AMENS. [194]EIM [204]ADEN DER"
3640 T2$="[160][210]OUTINE MUESSEN [211]IE ALSO IN DIESEM [198]ALL EINGEBEN '[210][197]-[206][197][215] 49152'     "
3642 T$=T1$+T2$:GOSUB5280
3656 GOSUB5640:RETURN
3658 :
3660 REM 3. HILFSPROGRAMM
3680 POKE50259,189:POKE50260,058:POKE50261,128:POKE50262,061:REM UEBERGABE
3690 POKE50257,24:REM TEILWEISE SICHERN
3700 PRINT"[205]IT DEM FOLGENDEN KURZEN [200]ILFSPROGRAMM"
3720 PRINT"IST ES MOEGLICH, ZWEI UNABHAENGIGE"
3740 PRINT"[194][193][211][201][195]-[208]ROGRAMME IM [210]ECHNER ZU HALTEN"
3760 PRINT"UND ZWISCHEN IHNEN BELIEBIG HIN UND "
3780 PRINT"HER ZU SCHALTEN.":PRINT
3800 PRINT"[158][196]IESES [200]ILFSPROGRAMM IST IN [205]ASCHINEN-"
3820 PRINT"[211]PRACHE GESCHRIEBEN UND TEILT DEN "
3840 PRINT"VERFUEGBAREN [194][193][211][201][195]-[210][193][205]-[194]EREICH IN"
3860 PRINT"ZWEI GLEICH GROSSE [212]EILBEREICHE AUF.":PRINT
3880 PRINT"[196]A AUCH DIE [214]ARIABLEN-[214]ERWALTUNG NICHT"
3900 PRINT"VERGESSEN WURDE, KOENNEN [211]IE WIE GEWOHNT";
3920 PRINT"IN [194][193][211][201][195] PROGRAMMIEREN.":PRINT
3930 PRINT"[158][196]IE [200]ANDHABUNG DES [200]ILFSPROGRAMMS IST"
3935 PRINT"DENKBAR EINFACH:"
3940 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
3960 PRINT"[147]";:F=8:GOSUB5360:Z=5:S=0:GOSUB5960
3970 PRINT"[158][211]IE LADEN DAS [200]ILFSPROGRAMM VOR [194]EGINN"
3972 PRINT"[201]HRER [194][193][211][201][195]-[208]ROGRAMMIERUNG ALS NORMALES"
3975 PRINT"[194][193][211][201][195]-[208]ROGRAMM IN DEN [210]ECHNER":PRINT
3977 PRINT"[196]AS [200]ILFSPROGRAMM INITIALISIERT SICH"
3980 PRINT"SELBST UND LOESCHT DANACH AUCH DIE"
3982 PRINT"EIGENEN [194][193][211][201][195]-[218]EILEN":PRINT
3985 PRINT"[158][205]IT DEM [194]EFEHL  [211][217][211] 36917[146]  KOENNEN"
3987 PRINT"[211]IE NUN INNERHALB [201]HRES [194][193][211][201][195]-[208]ROGRAMMS"
3990 PRINT"ZWISCHEN DEN BEIDEN [194]EREICHEN UMSCHALTEN";:PRINT
3992 PRINT"[193]LLE [193]NWEISUNGEN (Z.[194].: [206][197][215]) BEZIEHEN"
3995 PRINT"SICH NUN IMMER NUR AUF DEN AKTIVIERTEN"
3997 PRINT"[194]EREICH":PRINT
4000 PRINT"[158][197]XPERIMENTIEREN [211]IE RUHIG EINMAL!!!"
4007 GOSUB5640:RETURN
4080 :
4100 REM 4. HILFSPROGRAMM
4120 POKE50259,129:POKE50260,061:POKE50261,008:POKE50262,063:REM UEBERGABE
4130 POKE50257,24:REM TEILWEISE SICHERN
4140 PRINT"[158][194]EIM [193]USTESTEN VON [194][193][211][201][195]-[208]ROGRAMMEN KANN";
4160 PRINT"ES HILFREICH SEIN, DEN EIGENTLICHEN "
4180 PRINT"[208]ROGRAMMABLAUF KURZ ZU UNTERBRECHEN,"
4200 PRINT"EINIGE [208]ROGRAMM-[218]EILEN ANZEIGEN ZU"
4220 PRINT"LASSEN UND DANN IM [208]ROGRAMMABLAUF"
4240 PRINT"DIREKT FORTZUFAHREN.":PRINT
4260 PRINT"[196]AS [200]ILFSPROGRAMM IST ALS [213]NTERPROGRAMM"
4280 PRINT"GESCHRIEBEN UND KANN SOMIT VON JEDER"
4300 PRINT"[211]TELLE AUS MIT [199][207][211][213][194] 50000 ANGESPRUNGEN"
4320 PRINT"WERDEN.":PRINT
4340 PRINT"[158][215]ENN DAS [200]ILFSPROGRAMM AUFGERUFEN WIRD,"
4360 PRINT"ERWARTET ES DIE [197]INGABEN VON [193]NFANGS-"
4380 PRINT"UND [197]NDZEILE. [196]ER [218]EILENBEREICH WIRD"
4400 PRINT"DANACH GELISTET."
4410 GOSUB5480:IFG$="M"ORG$="[205]"THENRETURN
4415 PRINT"[147]";:F=8:GOSUB5360:Z=5:S=0:GOSUB5960
4420 PRINT"[196]URCH DRUECKEN EINER BELIEBIGEN [212]ASTE"
4440 PRINT"WIRD DAS [200]AUPTPROGRAMM MIT DEM NAECHSTEN";
4442 PRINT"[194]EFEHL FORTGESETZT.":PRINT
4444 PRINT"[158][215]ENN [211]IE ALLERDINGS EINE ANGEZEIGTE"
4446 PRINT"[218]EILE VERAENDERN WOLLEN, MUESSEN [211]IE DAS";
4448 PRINT"[208]ROGRAMM MIT  [210][213][206]/[211][212][207][208]  UNTERBRECHEN.":PRINT
4450 PRINT"[213]M BEI EINEM [206][197][213][211][212][193][210][212] DEN [196][193][212][197][206]-[214][197][210][204][213][211][212]"
4452 PRINT"ZU VERMEIDEN, STARTEN [211]IE EINFACH MIT:":PRINT
4454 PRINT"[158]    [199][207][212][207] [ERSTE [218]EILEN-[206]UMMER]":PRINT
4460 PRINT"[206]ATUERLICH KOENNEN [211]IE DEN [196][193][212][197][206]-[214][197][210][204][213][211][212]";
4462 PRINT"NICHT VERMEIDEN, WENN [211]IE EINE [218]EILE":
4464 PRINT"VERAENDERT HABEN."
4495 GOSUB5640:RETURN
4500 RETURN
4520 :
5080 REM ****** UNTERPROGRAMME ******
5100 :
5120 REM FENSTER FUER FLIESSdo
5140 Z=16:S=0:GOSUB5960:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
5160 PRINT"[221]                                      [146][221]";
5180 PRINT"[221]                                      [146][221]";
5200 PRINT"[221]                                      [146][221]";
5220 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:RETURN
5240 :
5260 REM FLIESSTEXT
5280 T$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"+T$:FORI=1TOLEN(T$)-19:Z=18:S=10:GOSUB5960
5300 PRINT"[158]";MID$(T$,I,20):FORZ=0TO100:NEXTZ,I:RETURN
5320 :
5340 REM UEBERSCHRIFT SETZEN
5360 POKE53280,F:POKE53281,F
5380 PRINT"[144][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";:PRINTA$(A)
5400 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";:RETURN
5420 :
5440 :
5460 REM HINWEISZEILE
5480 Z=24:S=0:GOSUB5960:PRINT"[144][215]EITER =   [215] [146]       [205]ENUE =  [205] [146]";
5500 FORT=0TO200:NEXTT
5510 GETG$:IFG$=""THEN5540
5520 IFG$="M"ORG$="[205]"ORG$="W"ORG$="[215]"THENGOSUB6000:GOTO5580
5530 GOSUB6100
5540 GOSUB5960:PRINT"[144][215]EITER =   [215]        [205]ENUE =  [205] ";
5560 FORT=0TO200:NEXTT:GOTO5480
5580 GOSUB5960:PRINT"                                 ";:RETURN
5600 :
5620 REM HINWEISZEILE (OHNE W)
5640 Z=24:S=0:GOSUB5960:PRINT"[144]                      [205]ENUE =  [205] [146]";
5660 FORT=0TO200:NEXTT
5670 GETG$:IFG$=""THEN5700
5680 IFG$="M"ORG$="[205]"THENGOSUB6000:GOTO5740
5690 GOSUB6100
5700 GOSUB5960:PRINT"[144]                      [205]ENUE =  [205] ";
5720 FORT=0TO200:NEXTT:GOTO5640
5740 GOSUB5960:PRINT"                                 ";:RETURN
5760 :
5780 REM HINWEISZEILE (OHNE M)
5800 Z=24:S=0:GOSUB5960:PRINT"[144][215]EITER =   [215] [146]";
5820 FORT=0TO200:NEXTT
5830 GETG$:IFG$=""THEN5860
5840 IFG$="W"ORG$="[215]"THENGOSUB6000:GOTO5900
5850 GOSUB6100
5860 GOSUB5960:PRINT"[144][215]EITER =   [215] ";
5880 FORT=0TO200:NEXTT:GOTO5800
5900 GOSUB5960:PRINT"                                 ";:RETURN
5920 :
5940 REM CURSOR SETZEN
5960 POKE214,Z:POKE211,S:SYS58640:PRINT"";:RETURN
5970 :
5990 REM GUELTIGE EINGABE
6000 POKESI,59:POKESI+1,139:POKESI+6,240:POKESI+4,17
6010 POKESI+24,15:FORT=0TO100:NEXTT:POKESI+4,0:RETURN
6020 :
6090 REM UNGUELTIGE EINGABE
6100 POKESI,180:POKESI+1,8:POKESI+6,240:POKESI+4,17
6110 POKESI+24,15:FORT=0TO100:NEXTT:POKESI+4,0:RETURN